home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / startup / startup.dir / Lingo_15.ls < prev    next >
Encoding:
Text File  |  1997-11-07  |  772 b   |  31 lines
  1. on mouseDown
  2.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  3.   if tButtonState = "downState" then
  4.     exit
  5.   else
  6.     hMakeSound("startupClick.aif", 1)
  7.     case tButtonState of
  8.       "upState":
  9.         if hValidClick01() = 1 then
  10.           hButtonScripts(tButtonState)
  11.         end if
  12.       "rolloverState":
  13.         if hValidClick02() = 1 then
  14.           hButtonScripts(tButtonState)
  15.         end if
  16.     end case
  17.   end if
  18. end
  19.  
  20. on hButtonScripts pButtonState
  21.   global gDefaultSoundLevel
  22.   hChangeCursor("watch")
  23.   if pButtonState = "rolloverState" then
  24.     hUndoButtonRollover()
  25.   end if
  26.   repeat while soundBusy(1) = 1
  27.   end repeat
  28.   set the soundLevel to gDefaultSoundLevel
  29.   quit()
  30. end
  31.